SuperHack/SuperHack CD.bin/CODING/80X86/DOS32V33.ZIP/EXAMPLES/MEMSPEED.ASM

Assembly Source File | 1995-10-18 | 10.7 KB | 401 lines

;***************************************************************************
; MEMSPEED.ASM      A program will show the video card memory trasnfer speed.
;
;
; This code is not written very effiecently at all. I only wrote it
; because I am soon going to upgrade my computer and I needed somthing
; to test the video and cpu memory transfer rates of variuos computers
; and video cards. This way I can be sure if I am buying a fast video card.
;
;***************************************************************************

.386

.MODEL FLAT
.STACK 4000h

PIC_FREQ    EQU    1193180 ;Hz
DURATION        EQU     18

CRLF        EQU     13,10


;  Macro to print some text on the screem
;
Print MACRO string
local @text,@skip
    mov edx,offset @text
    mov ah,9
    int 21h
    jmp @skip
@text db string,36
@skip:
ENDM

LOC STRUC
_d    dd ?
_w    dd 0
_b    dd 0
_mov32    dd 0
LOC ENDS

FILL_TYPE STRUC
Video        LOC <>
CPU        LOC <>
Video_Video    LOC <>
CPU_Video    LOC <>
CPU_CPU        LOC <>
FILL_TYPE ENDS


    .DATA

TempBuffer    DB     1024*20 DUP (?)
TempBuffer2     DB     1024*20 DUP (?)
VideoPtr        DD      ?
Ticks           DD      ?
old_INT8        DF      ?

extrn Debug :Near

    .CODE

NumberWrites    FILL_TYPE   <>

Print_Kbs PROC
        mov    ebx,PIC_FREQ
        mul    ebx
        mov     ebx,DURATION*65536
        div    ebx
        push    eax
        shr     eax,10
        call    Print_DecDword
        Print   ' Kb/s'
        pop    eax
    Ret
Print_Kbs ENDP


Video_Speed PROC                            ; Start of program

    ;****** make sure timer 0 is set to full scale **********

        mov     al,00110100b     ; SET TIMER VALUE TO ZERO ( 18.2 Hz )
        out     43h,al
        mov     al,0
        out     40h,al
        out     40h,al


        mov     ax,13h                    ; Reset TEXT mode
        int     10h

  ;******* get offset address (near pointer) to video text memory ********
        mov     ax,0EE02h
        int     31h
        neg     ebx
        add     ebx,0A0000h
        mov     VideoPtr,ebx

    ;****** hook timer interrupt **********
        mov     ax,204h
        mov     bl,8
        int     31h
        mov     dword ptr old_INT8,edx          ; save old vector
        mov     word ptr old_INT8[4],cx

        mov     ax,205h
        mov     edx,Offset Timer_ISR            ; put in new vector
        mov     cx,cs
        int     31h

 ;------------ fill video memory with REP STOSD for a set amount of time --------
        mov     Ticks,0
        mov    eax,0
Loop00:
        mov     edi,VideoPtr
        mov     ecx,320*20
        add     NumberWrites.Video._d, 320*20
        shr    ecx,2
        rep     stosd
        inc     al
        inc     ah
        push    ax
        push    ax
        pop    eax
        cmp     Ticks,DURATION
        jb Loop00

 ;------------ fill video memory with REP STOSW for a set amount of time --------
        mov     Ticks,0
        mov    eax,0
Loop01:
        mov     edi,VideoPtr
        mov     ecx,320*20
        add     NumberWrites.Video._w, ecx
        shr    ecx,1
        rep     stosw
        inc     al
        inc     ah
        cmp     Ticks,DURATION
        jb Loop01

 ;------------ fill video memory with REP STOSB for a set amount of time --------
        mov     Ticks,0
        mov    eax,0
Loop02:
        mov     edi,VideoPtr
        mov     ecx,320*20
        add     NumberWrites.Video._b, ecx
        rep     stosb
        inc     al
        cmp     Ticks,DURATION
        jb Loop02

 ;------------ fill CPU memory with REP STOSD for a set amount of time --------
        mov     Ticks,0
Loop03:
        mov     edi,OFFSET TempBuffer
        mov     ecx,SIZE TempBuffer
        add     NumberWrites.CPU._d,ecx
        shr    ecx,2
        rep     stosd
        cmp     Ticks,DURATION
        jb Loop03

 ;------------ fill CPU memory with MOV for a set amount of time --------
        mov     Ticks,0
        xor     eax,eax

Loop03a:
        mov     edi,OFFSET TempBuffer
     align 4
Loop03a_:
REPT 8
        mov     [edi],eax
        mov     [edi+4],eax
        mov     [edi+8],eax
        mov     [edi+12],eax
        mov     [edi+16],eax
        mov     [edi+20],eax
        mov     [edi+24],eax
        mov     [edi+28],eax
        add     edi,32
ENDM
        add     NumberWrites.CPU._mov32,32*8
        cmp     edi,SIZE TempBuffer + OFFSET TempBuffer
        jae     Loop03a
        cmp     Ticks,DURATION
        jb Loop03a_

 ;------- trasnfer CPU 2 Video memory with REP MOVSD for a set amount of time --------
        mov     Ticks,0
Loop04:
        mov     edi,VideoPtr
        mov     esi,OFFSET TempBuffer
        mov     ecx,SIZE TempBuffer
        add     NumberWrites.CPU_Video._d,ecx
        shr    ecx,2
        rep     movsd
        cmp     Ticks,DURATION
        jb Loop04

 ;---- trasnfer CPU 2 Video memory with MOV 32 bit for a set amount of time --------
        mov     Ticks,0
Loop05:
        mov     edi,VideoPtr
        mov     esi,OFFSET TempBuffer
        mov     ecx,SIZE TempBuffer
        Align 4
flop05:
REPT    4
    MOV    EAX,[ESI]
    MOV    [EDI],EAX
    MOV    EAX,[ESI+4]
    MOV    [EDI+4],EAX
    MOV    EAX,[ESI+8]
    MOV    [EDI+8],EAX
    MOV    EAX,[ESI+12]
    MOV    [EDI+12],EAX
    MOV    EAX,[ESI+16]
    MOV    [EDI+16],EAX
    MOV    EAX,[ESI+20]
    MOV    [EDI+20],EAX
    MOV    EAX,[ESI+24]
    MOV    [EDI+24],EAX
    MOV    EAX,[ESI+28]
    MOV    [EDI+28],EAX
        ADD     EDI,32
        ADD     ESI,32
    SUB    ECX,32
ENDM
        add     NumberWrites.CPU_Video._mov32,4*32
    and    ecx,ecx
        jz      Loop05
    cmp     Ticks,DURATION
        jb      flop05

 ;------------ CPU 2 CPU using MOVSD  for a set amount of time --------
        mov     Ticks,0
Loop06:
        mov     esi,OFFSET TempBuffer
        mov     edi,OFFSET TempBuffer2
        mov     ecx,SIZE TempBuffer
        add     NumberWrites.CPU_CPU._d,ecx
        shr    ecx,2
        rep     movsd
    cmp     Ticks,DURATION
        jb Loop06

 ;------------ CPU 2 CPU using 32bit MOV  for a set amount of time --------
        mov     Ticks,0
Loop07:
        mov     esi,OFFSET TempBuffer
        mov     edi,OFFSET TempBuffer
        mov     ecx,SIZE TempBuffer
        Align 4
flop07:
REPT    4
    MOV    EAX,[ESI]
    MOV    [EDI],EAX
    MOV    EAX,[ESI+4]
    MOV    [EDI+4],EAX
    MOV    EAX,[ESI+8]
    MOV    [EDI+8],EAX
    MOV    EAX,[ESI+12]
    MOV    [EDI+12],EAX
    MOV    EAX,[ESI+16]
    MOV    [EDI+16],EAX
    MOV    EAX,[ESI+20]
    MOV    [EDI+20],EAX
    MOV    EAX,[ESI+24]
    MOV    [EDI+24],EAX
    MOV    EAX,[ESI+28]
    MOV    [EDI+28],EAX
        ADD     EDI,32
        ADD     ESI,32
        SUB     ECX,32
ENDM
        add     NumberWrites.CPU_CPU._mov32,4*32
        and     ecx,ecx
        jz      Loop07
    cmp     Ticks,DURATION
        jb      flop07




        ;******* reset text mode **********
        mov     ax,3
        int     10h


        ;******* return origonal interrupt vector **********
        mov     ax,205h
        mov     edx,dword ptr old_INT8
        mov     cx,word ptr old_INT8[4]
        mov     bl,8
        int     31h

        ;******* print transfer rates on the screen **********

        Print   <'             Memory transfer rates using various methods                ',CRLF>
        Print   <'░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓░▓',CRLF>
        Print   <CRLF,' Video memory fill using REP STOSD ──────────────── '>
        mov     eax,NumberWrites.Video._d
        call    Print_Kbs
        Print   <CRLF,' Video memory fill using REP STOSW ──────────────── '>
        mov     eax,NumberWrites.Video._w
        call    Print_Kbs
        Print   <CRLF,' Video memory fill using REP STOSB ──────────────── '>
        mov     eax,NumberWrites.Video._b
        call    Print_Kbs
        Print   <CRLF,' CPU memory fill  using REP STOSD ───────────────── '>
        mov     eax,NumberWrites.CPU._d
        call    Print_Kbs
        Print   <CRLF,' CPU memory fill 32bit MOV ──────────────────────── '>
        mov     eax,NumberWrites.CPU._mov32
        call    Print_Kbs
        Print   <CRLF,' CPU to CPU transfer using REP MOVSD ────────────── '>
        mov     eax,NumberWrites.CPU_CPU._d
        call    Print_Kbs
        Print   <CRLF,' CPU to CPU transfer using 32bit MOV ────────────── '>
        mov     eax,NumberWrites.CPU_CPU._mov32
        call    Print_Kbs
        Print   <CRLF,' CPU to Video transfer using REP MOVSD ──────────── '>
        mov     eax,NumberWrites.CPU_Video._d
        call    Print_Kbs
        Print   <CRLF,' CPU to Video transfer using 32bit MOV ──────────── '>
        mov     eax,NumberWrites.CPU_Video._mov32
        call    Print_Kbs


        Print   <CRLF,CRLF>
        Print   <'  The 32bit MOV is using the following instructions repetivily', CRLF>
        Print   <'    mov eax,[esi]                mov [edi],eax    ',CRLF>
        Print   <'    mov [edi],eax                mov [edi+4],eax  ',CRLF>
        Print   <'    mov eax,[esi+4]     or       mov [edi+8],eax  ',CRLF>
        Print   <'    mov [edi+4],eax              mov [edi+12],eax ',CRLF>
        Print   <'    .. ect                       .. ect ',CRLF>

        Print   <CRLF>

    Print   <'Values may viary upto ±2% when ran at different times.', CRLF, CRLF>
    Print   <'Press any key to exit.', CRLF>

        mov     ah,0        ; Wait for a key ( using BIOS service )
        int     16h


        mov   ax,4C00h                          ; Termiate the program
        int   21h

Video_Speed ENDP

Timer_ISR PROC
        Push    eax
        Push    ds
        mov     ax,SEG Timer_ISR
        mov     ds,ax
        inc     Ticks
        mov     al,20h
        out     20h,al
        Pop     ds
        Pop     eax
        iretd
Timer_ISR ENDP


;╒══════════════════════════════════════════════════════════════════════════╕
;│                                                                          │
;│  procedure to print the Decimal value of EAX                             │
;│                                                                          │
;└──────────────────────────────────────────────────────────────────────────
; ***************  prints decimal EAX  ******************
Print_DecDword   PROC
        pushad
        mov     ESI,4*5
        mov     ecx,eax
dec83:
        mov    eax,ECX
        xor    edx,edx
        div     dec_divider[ESI]
        mov    ECX,EDX        ; reuse remainder
                add al,'0'      ; use quotient as digit number
                mov     dl,al
                mov     ah,2
                int     21h             ; send character to screen
        sub ESI,4
        jge dec83
        popad
        RET
Print_DecDword        ENDP


align 4
dec_divider dd 1,10,100,1000,10000,100000,1000000,10000000,100000000,1000000000
;-------------------------------------------------------


END  Video_Speed